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-- File: displ ay .mesa Edited by: Johnsson, September 27, 1977 11:23 AM 

DIRECTORY 

SystemDefs: FROM "systemdef s" , 
StreamDefs: FROM "streamdef s" , 
RectangleDefs: FROM "rectangledef s" ; 

DEFINITIONS FROM StreamDefs, RectangleDefs; 

Display: PROGRAM 

IMPORTS RectangleDefs, StreamDefs, SystemDefs EXPORTS StreamDefs SHARES StreamDefs 
BEGIN 

-- CHARACTER constants 
NUL: CHARACTER = 0C; 
TAB: CHARACTER = 11C; 
CR: CHARACTER - 15C; 
Backspace: CHARACTER = IOC; 
ControlA: CHARACTER = 1C ; 
Space: CHARACTER = 40C; 
MaxCharCode: CHARACTER = 377C; 

— GLOBAL PUBLIC Data 

defaul tdispl aystream: PUBLIC D ispl ayHandle «- NIL; 
d isplaystreams : Di splayHandl e <- NIL; 

-- Mesa Display Stream Routines 

CreateDisplayStream: PUBLIC PROCEDURE [rectangle: Rptr] RETURNS[Displ ayHandle] = 
BEGIN 
-- declare locals 

ds: Displ ayHandle; 
-- now create stream structure and init it 

ds <- SystemDefs .AllocateHeapNode[SIZE[Di spl ay StreamOb ject]] ; 

ds? ♦- StreamObject[ResetD isplayStream, GetNOP, PutbackNOP, Wri teDi spl ayChar , 
EndofNOP, Oes troyD isplayStream, Displ ay[ ,,,,,,,,,]] ; 

ds. rectangle *■ rectangle; 

[ds.pfont, ds . 1 ineheight] ♦- GetDefaul tFont[] ; 

ds. options ♦- DSOp tions[FALSE , FALSE, FALSE, FALSE]; 
-- link into list of display streams 

ds.link *- displ aystreams ; 

displ ays treams ♦■ ds; 
-- set options in rectangle to tell about overflow(s) 

rectangle . opt ions . NoteOverf low ♦- TRUE; 
-- and set 1 ine to Zero 

SetDispl ayLine[ds , 0, leftmargin]; 
RETURN[ds] 
END; 

DestroyDisplayStream: PROCEDURE [stream: StreamHandl e] = 
BEGIN 

-- define locals 
prev: D i spl ayHandle ; 
WITH ds: stream SELECT FROM 
Display => 
BEGIN 

-- delink from list of display streams 
IF @ds = d isp 1 ays treams THEN d i spl ays treams +* ds.link 
ELSE 
BTGIN 

prev <- d ispl ays treams ; 
UNTIL 8ds = prev. 1 ink DO 
IF prev = NTL THEN TRROR; 
prev «- prev. link; 
TNDI OOP; 
prev.lmk<- ds.link 
TND; 
-- now free all storage 
Sys temDef s .fr eeHeapNode[@ds]; 
rND; 
FNDCASr => TRROR S LreamError [ s tream , SLreamType]; 
TND; 

GeLOefaultDisplayStream: PUBl TC PROCFDURT RTTURNS[D i sp 1 ayllandl e] = 
BFGTN 
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RETURN[ clef au ltd i splay st ream]; 
END; 

GetDisplayStreamList: PUBLIC PROCEDURE RETURNS[Displ ayHandle]* 
BEGIN 

RETURN[ display st reams]; 
END; 

-- Text Output and Support Routines 

WriteDisplayChar: PUBLIC PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] = 
BEGIN 

WITH ds:stream SELECT FROM 
Display => 

BEGIN -- paste a character on the screen 
SELECT char FROM 
IB, 
10B, 

> 377B => RETURN; 

< 40B => ScrollDisplay[@ds, char]; 
ENDCASE => 

[ds.charx, ds. chary] *• Wri teRectangleChar[ds . rectangle , ds.charx, ds . chary , char , ds . pfont 
! RectangleError => 
SELECT error FROM 
BottomOverflow, 
RightOverflow => 
BEGIN 

ScrollDisplay[@ds , char]; 
CONTINUE; 
END; 
ENDCASE 

]; 

END; 
ENDCASE => ERROR StreamError[stream, StreamType]; 
END; 

ClearCurrentLine: PUBLIC PROCEDURE [stream: StreamHapdle]= 
BEGIN 
WITH ds:stream SELECT FROM 

Display = > ClearDisplayLine[@ds , ds.line]; 

ENDCASE => ERROR S treamError[s tream, StreamType] ; 
END; 

ClearDisplayLine: PUBLIC PROCEDURE [stream: StreamHandle, line: CARDINAL] * 
BEGIN 
-- define locals 

clearwords: GrayArray ♦- [0, 0, 0, 0]; 

clear: GrayPtr = Qclearwords; 

ds: D ispl ayHandle; 

rectangle: Rptr; 

1 ineheight: CARDINAL; 

WITH s:stream SELECT FROM 
Display => ds <- @s; 
ENDCASE => ERROR S treamError[ s tream , StreamType] ; 

rectangle*- ds . rectangle; 

1 ineheight*- ds.l ineheight; 
-- now clear it 

IF line > LOOPHOt F[ rec tangl e . ch/LOOPHOLE[l i nehe i gh t , INTEGTR], CARDINAL] THEN RETURN; 

ClearBoxInRectangle[rectangle t 1, rec tangl e . cw-2 , 1 inehe ight*l ine , 1 ineheight, clear]; 
-- reset line position to left margin 

SetDi splay L ine [ds , line, leftmargin]; 
END; 

ClearDisplayChar: PUBLIC PROCEDURE [stream: StreamHandle, char: CHARACTER] = 
-- As sump t ions : 

-- erases last character written, iff position not changed 
BTGIN 
-- define and setup locals 

cwulth: CARDINAl ; 

ds : D ispl ayHandle; 

rectangle: Rptr; 

clearwords: GrayArray ♦- [0, 0, 0, 0]; 

clear: GrayPtr = ^clearwords; 
-- check for control chars 

WITH s: stream STl ECT TROM 
D ispl ay => ds «- @s ; 
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ENDCASE => ERROR StreamError[stream,StreamType] ; 
rectangle ♦- ds . rectangle; 
SELECT char FROM 

NUL, CR, >MaxCharCode => RETURN; 
ControlA, Backspace => NULL; 
TAB => 
BEGIN 
IF ds.TABindex > THEN 

BEGIN ds.TABindex «- ds .TABindex-1 ; ds.charx ♦■ ds . TABs[ds .TABindex] END; 
ds.put[ds, IB]; 
RETURN 
END; 
< Space => 
BEGIN 
ClearDisplayChar[ds , 

LOOPHOLE[LOOPHOLE[char,INTEGER]+10QB, CHARACTER]]; 
char ♦- ' t ; 
END; 
ENDCASE => NULL; 
-- now backup convert stuff and compute left word 
cwidth <- ComputeCharWidth[char , ds.pfont]; 

ds.charx <- MAX[lef tmargin , LOOPHOLE[ds . charx-cwidth, INTEGER]]; 
-- now clear it 

ClearBoxInRectangle[rectangle, ds.charx, cwidth, ds. chary, ds. 1 ineheight , clear]; 
ds.put[ds, IB]; 
END; 

SetDisplayLine: PUBLIC PROCEDURE [ds: Di spl ayHandl e , line, pos: CARDINAL] = 
BEGIN 
-- define locals 

lineheight: INTEGER = ds . 1 i nehei ght ; 
-- make sure line no. is in range and set character x and y 

line «- MIN[line, LOOPHOLE[(ds. rectangle. ch/1 ineheight)-l, CARDINAL]] ; 

ds.charx ♦- pos; ds.TABindex ♦- 0; 

ds. chary ♦- 1 ine*l ineheight; 

d s . 1 i n e <- line; 
END; 

ScrollDisplay: PUBLIC PROCEDURE [ds; D i spl ayHandl e , char: UNSPECIFIED] = 
BEGIN 
-- define locals 

newx, tw: CARDINAL; -- for TABs 
lastline: INTEGER; 

lineheight: INTEGER = ds . 1 i neheight ; 
blockheight: INTEGER; 
rectangle: Rptr = ds . rectangle ; 
mapaddr: BMptr = rectangle. bi tmap . addr ; 
wordsperl ine: INTEGER = rectangl e . b i tmap . wordsper 1 ine ; 
-- deal with character 
SELECT char FROM 

15B => NULL; -- <Carriage Return> 
0, 12B => RETURN; -- null character 
11B => -- TAB 
BEGIN 

ds .TABs[ds .TABindex] «- ds.charx; 
ds.TABindex ♦- ds.TABindex + 1; 
tw ♦■ ComputeCharWidth[' .ds.pfont] * 8; 
newx ♦" ( ds . charx/tw+l)*tw; 
IF newx < rectangle. cw THEN 

BFGIN ds.charx ♦- newx; RETURN END; 
IF tw >= rectangle. cw THEN char *■ ' ; 
END; 
TNDCASE => 
BEGIN 

IF ds. options. StopRight THEN RETURN; 
IF char < 40B THEN 
BEGIN 

Wr i LeDisp layChar[ds , '^]; 
Wr i teDisplayChar[ds, char + 100B]; 
RETURN; 
END; 
END; 
-- check if at bottom of window 

lastline <- (( rectangle . ch-1 )/l ineheight)-! ; 
TE ds. 1 ine = lastl ine THEN 
BEGIN 
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-- if he wants to be notified at the bottom, do it 
IF ds. options. NoteScroll ing THEN 

SIGNAL StreamError[ds, StreamEnd]; 
IF ds. options. StopBottom THEN RETURN; 
-- scroll the box containing the text 
blockheight «• rectangle. ch-1 ineheight-1; 

ScrollBoxInRectangle[rectangle, 0, rectangle. cw, lineheight, blockheight, 1 ineheight] ; 
-- now clear the last line 

ClearD isplayLine[ds , ds.line]; 
END 
ELSE 
BEGIN 

— assumes next window line is cleared 
ds . 1 ine «- ds . 1 ine+1 ; 

SetD ispl ayLine[ds , ds.line, leftmargin]; 
IF ds .options . NoteLi neBreak THEN 

SIGNAL StreamError[ds, StreamPosition] ; 
END; 
-- now wr i te the char 

IF char NQT= 15B THEN Wr i teDi spl ayChar[ds , char]; 
END; 

-- NOP routines 

ResetDisplayStream: PROCEDURE [stream: StreamHandle]* 
BEGIN 
RETURN; 
END; 

GetNOP: PROCEDURE [stream: StreamHandle] RETURNS [UNSPECIFIED] = 
BEGIN 

RETURN[0]; 
END; 

PutbackNOP: PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] = 
BEGIN 
RETURN; 
END; 

EndofNOP: PROCEDURE [stream: StreamHandle] RETURNS [BOOLEAN] = 
BEGIN 

RETURN[FALSE]; 
END; 

-- Alto Display Window Initialization Routine 

initdisplaystreams: PROCEDURE - 
BEGIN 

mapdata: BMHandle = GetDefaul tBi tmap[] ; 
def aul tdi spl ays tream «- 

CreateDisplayStream[CreateRectangle[mapdata, 0, mapdata. width, 0, mapdata. hei ght]] ; 
END; 

-- MAIN BODY CODE 

i n i t d i s p 1 ay s t r e ams [ ] ; 

END. of Display 



